home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib10.dsk / PRINT USRING DEMO.bas < prev    next >
BASIC Source File  |  2023-02-26  |  2KB  |  42 lines
  1. 0  REM  **********************
  2. 1  REM  * PRINT USRING DEMO  *
  3. 2  REM  * BY JOHN BALDWIN    *
  4. 3  REM  * COPYRIGHT (C) 1982 *
  5. 4  REM  * BY MICRO-SPARC INC *
  6. 5  REM  * LINCOLN, MA. 01773 *
  7. 6  REM  *    ALL RIGHTS      *
  8. 7  REM  *     RESERVED       *
  9. 8  REM  **********************
  10. 100  REM  SET UP FORMATTING ROUTINE
  11. 105  HOME : VTAB 10: HTAB 5: PRINT "PRINT USRING DEMO": HTAB 5: PRINT "BY JOHN BALDWIN": HTAB 5: PRINT "COPYRIGHT (C) 1982": HTAB 5: PRINT "BY MICRO-SPARC INC"
  12. 107  VTAB 20: HTAB 5: FLASH : PRINT "LOADING ROUTINE": NORMAL : VTAB 19: REM 
  13. 110  PRINT  CHR$(4);"BRUN PRINTUSR"
  14. 115  GOSUB 1000: REM 
  15. 199  REM  SHOW OUTPUT FOR VARIOUS NO. OF DECIMALS
  16. 200  PRINT "VARIOUS NUMBER OF DECIMALS": PRINT 
  17. 205  FOR I = 0 TO 10
  18. 210  PRINT  USR(1234.567891234)'20,I'
  19. 220  NEXT I: GOSUB 1000: REM 
  20. 249  REM  SHOW OUTPUT FOR VARIOUS FIELD WIDTHS
  21. 250  PRINT : PRINT "VARIOUS FIELD WIDTHS": PRINT 
  22. 255  FOR I = 7 TO 20
  23. 260  PRINT  USR(1234.56)'I,2'
  24. 270  NEXT I: GOSUB 1000: REM 
  25. 299  REM  PRINT COLUMNS OF NUMBERS
  26. 300  PRINT : PRINT "COLUMNS OF NUMBERS"
  27. 305  FOR I =  -500 TO 500  STEP 70.0625
  28. 310  PRINT  USR(I)'10,4';"  "; USR(I *I)'10,2'
  29. 320  NEXT I: GOSUB 1000: REM 
  30. 399  REM  PRINT BIG NUMBERS
  31. 400  PRINT : PRINT "LARGE VALUES": PRINT 
  32. 405  FOR I = 1E10 TO 1E12  STEP 1E11
  33. 410  PRINT  USR(I)'20,2'
  34. 420  NEXT I: GOSUB 1000: REM 
  35. 499  REM  PRINT SMALL NUMBERS
  36. 500  PRINT : PRINT "SMALL VALUES": PRINT 
  37. 505  FOR I = 1E -12 TO 1E -10  STEP 1E -11
  38. 510  PRINT  USR(I)'20,12'
  39. 520  NEXT I
  40. 530  PRINT : PRINT "END OF DEMONSTRATION": END : REM 
  41. 999  REM  WAIT FOR KEYBOARD
  42. 1000  PRINT : PRINT "PRESS ANY KEY TO CONTINUE": GET C$: HOME : RETURN : REM